Distribution of order time for each department
data(instacart)
x <- list(
title = "Department"
)
y <- list(
title = "Order Hour of Day"
)
instacart %>%
group_by(department) %>%
plot_ly(x = ~department, y = ~order_hour_of_day, color = ~department, type = "box") %>%
layout(xaxis = x, yaxis = y)
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors
## Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
## Returning the palette you asked for with that many colors